home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 27 / 027.d81 / flower power (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  30 lines
  1. 1 rem flower power
  2. 5 poke53281,15:poke53280,5:printchr$(142)
  3. 10 print"[147][144]  c= flower power - bob & david snader":forj=1to20:print:next
  4. 20 dima(64):v=53248:pokev+23,0:pokev+29,0
  5. 30 forl=12288to12799:pokel,0:next
  6. 40 fort=0to29:readp,b:pokev+p,b:next
  7. 50 fort=0to7:poke2040+t,192+t:next
  8. 60 forq=0to63:readn:a(q)=n:next
  9. 70 fort=0to7:forq=63to0step-1:l=l-1:pokel,a(q):ford=0to40:next:next:next
  10. 80 data 000,220,001,140,002,095,003,155
  11. 81 data 004,170,005,145,006,120,007,140
  12. 82 data 008,195,009,150,010,245,011,155
  13. 83 data 012,070,013,145,014,145,015,150
  14. 84 data 021,255,028,255,032,015,033,015
  15. 85 data 037,005,038,000,039,007,040,006
  16. 86 data 041,002,042,007,043,004,044,001
  17. 87 data 045,002,046,001
  18. 90 data 002,128,160,002,162,160,002,162
  19. 91 data 160,000,162,128,010,046,040,042
  20. 92 data 191,170,042,191,170,010,046,040
  21. 93 data 000,166,128,002,166,160,018,166
  22. 94 data 160,018,132,161,020,004,001,021
  23. 95 data 004,005,005,068,021,005,068,084
  24. 96 data 001,068,084,000,084,080,000,005
  25. 97 data 064,000,004,000,000,004,000,000
  26. 100 printspc(12)"press any key":poke198,0:wait198,1:poke198,0
  27. 110 pokev+21,0:print"[147]"spc(12)"returning to menu..."
  28. 120 poke646,peek(53281):f$="magic menu"
  29. 130 print"loadf$,8":print"run":poke631,13:poke632,13:poke198,2:end
  30.